home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer (Italian) 48
/
PC Gamer IT CD 48 2-2.iso
/
utility
/
nmail28u
/
_SETUP.1
/
NETMAIL.EXE
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
< prev
Wrap
Text File
|
1999-09-10
|
29KB
|
901 lines
object MainForm: TMainForm
Left = 107
Top = 111
HelpContext = 10
AutoScroll = False
ClientHeight = 303
ClientWidth = 604
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
FormStyle = fsMDIForm
HelpFile = 'netmail.hlp'
Menu = MainMenu1
WindowState = wsMaximized
WindowMenu = Window1
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object img: TImage
Left = 1
Top = 28
Width = 58
Height = 35
Picture.Data = {<image000.bmp>}
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 604
Height = 29
Align = alTop
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvNone
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
object SpeedButton2: TSpeedButton
Left = 6
Top = 2
Width = 87
Height = 25
Caption = 'Check mail'
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00550B30555000
0000557F57F557777777550B305508888880557F57F575555557550B30508888
8805557F57F7FFFFFF75550B300000000055557F5777777777F5550300000000
0055557F7777777777F55500780F0F0F70555F777577F7F7F7F50078880F0F0F
705577755577F7F7F7F50888880F0F0F70557F555F77F7F7F7F50888080F0F0F
70557F557F77F7F7F7F50888980F0F0F70557F557F77F7F7F7F5088898007070
70557F557F77F757575508889880077705557F5F7F5775FF7555089998888000
55557F777F555777555508999888075555557577755F77555555508888075555
5555575FFF775555555555000755555555555577775555555555}
NumGlyphs = 2
OnClick = CheckMail2Click
end
object SpeedButton1: TSpeedButton
Left = 182
Top = 2
Width = 87
Height = 25
Caption = 'Get News'
Enabled = False
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
77F07F773FF3333F77370FFF77FFFF77FFF07F33773FFF7733370FFFFF0000FF
FFF07F333F77773FF3F70FFF70EEEE07F9F07F3F7733337737F70F707FFFFFF7
97F07F7733333FFF7737007EEEE3000EE70977FFFFFF777FFF37077777307080
77907777777737377773307EE307088809033773FF7F7FF37733337030070088
07333337777F77377FFF33337008080809993333377F7F737777333330080088
03333333377F77337FF333333308088809333333337373F3773F333333308080
33933333333737F7337333333333000333393333333377733337}
NumGlyphs = 2
Visible = False
end
object Label1: TLabel
Left = 419
Top = 6
Width = 85
Height = 13
Caption = 'Mailbox and news'
Visible = False
end
object SBSend: TSpeedButton
Left = 94
Top = 2
Width = 87
Height = 25
Caption = 'Send'
Enabled = False
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0000377777777777777707FFFFFFFFFFFF70773FF33333333F770F77FFFFFFFF
77F07F773FF3333F77370FFF77FFFF77FFF07F33773FFF7733370FFFFF0000FF
FFF07F333F77773FF3F70FFF70EEEE07F9F07F3F7733337737F70F707FFFFFF7
97F07F7733333FFF7737007EEEE3000EE70977FFFFFF777FFF37077777307080
77907777777737377773307EE307088809033773FF7F7FF37733337030070088
07333337777F77377FFF33337008080809993333377F7F737777333330080088
03333333377F77337FF333333308088809333333337373F3773F333333308080
33933333333737F7337333333333000333393333333377733337}
NumGlyphs = 2
OnClick = SBSendClick
end
object Label2: TLabel
Left = 187
Top = 3
Width = 130
Height = 24
Caption = 'NetMail! 2.84'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clGray
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = True
OnClick = VistaOnline1Click
end
object Panel2: TPanel
Left = 522
Top = 1
Width = 81
Height = 27
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object ExplorerButton5: TExplorerButton
Left = 13
Top = 0
Width = 60
Height = 27
NoFocusBitmap.Data = {
96010000424D9601000000000000760000002800000014000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777700007777777777777777777700007777777777777777777700007777
7777777777777777000077777777777777777777000000007EEEEEEEEEEE0000
0000777076666666666008770000777076666666666008770000777076666666
666008770000777076B666666660087700007770766666666660087700007770
76B66666666008770000777076B66666666008770000777076B6666666600877
0000777076666666666008770000777076666666666008770000777076666666
6660087700007770766666666660087700007770766666666660087700007770
7666666666600877000077707666666666600877000077707777777777770877
0000777000000000000008770000777777777777777777770000}
Bitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Caption = ' Exit'
DisabledBitmap.Data = {
96010000424D9601000000000000760000002800000016000000180000000100
0400000000002001000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777007777777777777777770007007777777777777777706607007777
7777777777770666070077777777777777706666070000007777777777066666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE6666B607007770EEEEEEEEEE6666B607007770EEEEEEEEEE6666B607007770
EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEEEE666666
07007770EEEEEEEEEE66666607007770EEEEEEEEEE66666607007770EEEEEEEE
EE66667707007770EEEEEEEEEE66670077007770EEEEEEEEEE66707777007770
EEEEEEEEEE67087777007770EEEEEEEEEE700877770077700000000000000877
7700777000000000000007777700777777777777777777777700}
Layout = blBitmapLeft
Options = [boMonoDisplay, boPopupMark, boShowBevel]
OnClick = ExplorerButton5Click
IBitmap = {
424D560A00000000000036000000280000001F0000001B000000010018000000
0000200A0000000000000000000000000000000000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF000000BFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000
BFBFBFBFBFBFBFBFBFFFFFFF7F7F7F7F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFF
FFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
000000BFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFF
FFFFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBF00000000
0000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7FFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFF0000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFF7F7F7F7F7F7F7F7F7FBFBFBFBFBFBF7F7F7F7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000FFFFFF7F7F7F7F7F7FBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF000000
FFFFFFFFFFFFFFFFFF000000000000FFFFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BF7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBF7F7F
7F7F7F7F7F7F7F7F7F7FFFFFFFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7F7F7F7F7F7F7FFFFFFFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBF7F7F7F7F7F7F7F7F7F7F7F
7FFFFFFFFFFFFFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBFFFFFFF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFFFFFFFFFFFFFFFFFFFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000BFBFBF
FFFFFFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000
BFBFBFFFFFFFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000
000000BFBFBFFFFFFF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000BFBFBF000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBF000000000000000000000000000000000000000000000000000000
000000000000000000000000000000FFFFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF0000007E7FBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7FBF000000}
end
end
object ComboBox1: TComboBox
Left = 474
Top = 3
Width = 54
Height = 21
Ctl3D = False
ItemHeight = 13
Items.Strings = (
'In'
'Out'
'Trush')
ParentCtl3D = False
TabOrder = 1
Visible = False
end
end
object Edit57: TEdit
Left = 182
Top = 194
Width = 169
Height = 13
HelpContext = 10
BorderStyle = bsNone
Color = clSilver
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Text = 'http://www.vista.ru/netmail.htm'
Visible = False
end
object MainMenu1: TMainMenu
Left = 150
Top = 68
object Message1: TMenuItem
Caption = '&File'
object NewMessage2: TMenuItem
Caption = 'New Message'
ShortCut = 16462
OnClick = NewMessage2Click
end
object Reply1: TMenuItem
Caption = '&Reply'
ShortCut = 16466
OnClick = ReplyBtnClick
end
object Send1: TMenuItem
Caption = 'Send Again'
OnClick = Send1Click
end
object SendImediatly1: TMenuItem
Caption = 'Send Immediately'
OnClick = SendImediatly1Click
end
object OpenAttachment1: TMenuItem
Caption = 'Attach File'
ShortCut = 16449
OnClick = OpenAttachment1Click
end
object N11: TMenuItem
Caption = '-'
end
object CheckMail1: TMenuItem
Caption = 'Check &Mail '
ShortCut = 16461
OnClick = CheckMail2Click
end
object SendQue1: TMenuItem
Caption = 'Send All &Queued Messages'
ShortCut = 16468
OnClick = SendQue1Click
end
object N17: TMenuItem
Caption = '-'
end
object CheckandSend1: TMenuItem
Caption = 'C&heck and Send'
OnClick = CheckandSend1Click
end
object N1: TMenuItem
Caption = '-'
end
object Save1: TMenuItem
Caption = '&Save'
ShortCut = 16467
OnClick = Save1Click
end
object Delete1: TMenuItem
Caption = 'Delete'
OnClick = Delete1Click
end
object Close1: TMenuItem
Caption = '&Close'
ShortCut = 16471
OnClick = Close1Click
end
object N3: TMenuItem
Caption = '-'
end
object Print1: TMenuItem
Caption = '&Print'
ShortCut = 16464
OnClick = Print1Click
end
object N10: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
ShortCut = 16465
end
end
object News1: TMenuItem
Caption = 'News'
Visible = False
object Opennewshost1: TMenuItem
Caption = 'Open news host'
object Enterhostname1: TMenuItem
Caption = 'Enter host name'
end
end
object GetNewsgroup1: TMenuItem
Caption = 'Get Newsgroup'
end
object Addnewsgroup1: TMenuItem
Caption = 'Add Newsgroup'
end
object RemoveNewsgroup1: TMenuItem
Caption = 'Remove Newsgroup'
end
object N20: TMenuItem
Caption = '-'
end
object GetNews1: TMenuItem
Caption = 'Get More Messages'
Visible = False
end
object N18: TMenuItem
Caption = '-'
end
object Savenewsheaders1: TMenuItem
Caption = 'Save news headers'
end
object DownloadNewsMessages1: TMenuItem
Caption = 'Download News Messages'
end
object N13: TMenuItem
Caption = '-'
Visible = False
end
object Post1: TMenuItem
Caption = 'Post Reply'
end
object MailReply1: TMenuItem
Caption = 'Mail Message Reply'
end
object PostandMailReply1: TMenuItem
Caption = 'Post and Mail Reply'
end
object N19: TMenuItem
Caption = '-'
end
object Filtermessages1: TMenuItem
Caption = 'Filter messages'
end
object Addtoaddressbook1: TMenuItem
Caption = 'Add to addressbook'
end
end
object Edit1: TMenuItem
Caption = '&Edit'
object EditCutItem: TMenuItem
Caption = 'Cut'
Hint = 'Delete selected item'
ShortCut = 16472
OnClick = EditCutItemClick
end
object EditCopyItem: TMenuItem
Caption = 'Copy'
Hint = 'Copy selected item to clipboard'
ShortCut = 16451
OnClick = EditCopyItemClick
end
object EditPasteItem: TMenuItem
Caption = 'Paste'
Hint = 'Paste contents of clipboard'
ShortCut = 16470
OnClick = EditPasteItemClick
end
object EditUndoItem: TMenuItem
Caption = 'Undo'
Hint = 'Undo the last action'
ShortCut = 16474
OnClick = EditUndoItemClick
end
object SelectAll1: TMenuItem
Caption = 'Select All'
OnClick = SelectAll1Click
end
object N8: TMenuItem
Caption = '-'
end
object Find1: TMenuItem
Caption = 'Find text'
OnClick = Find1Click
end
object FindNext1: TMenuItem
Caption = 'Find again'
ShortCut = 114
OnClick = FindNext1Click
end
object N2: TMenuItem
Caption = '-'
Visible = False
end
object Addrecord1: TMenuItem
Caption = 'Add '
Visible = False
end
object Edit2: TMenuItem
Caption = 'Edit'
Visible = False
end
object Delete2: TMenuItem
Caption = 'Delete'
Visible = False
end
object N16: TMenuItem
Caption = '-'
Visible = False
end
object Next2: TMenuItem
Caption = '&Next'
ShortCut = 120
Visible = False
end
object Previous2: TMenuItem
Caption = '&Previous'
ShortCut = 121
Visible = False
end
object Forward1: TMenuItem
Caption = '&Forward'
ShortCut = 16454
Visible = False
end
object Redirect1: TMenuItem
Caption = 'Re&direct'
Visible = False
end
object N15: TMenuItem
Caption = '-'
end
object Sortby1: TMenuItem
Caption = 'Sort by'
object Status1: TMenuItem
Caption = 'Status'
OnClick = Status1Click
end
object Date1: TMenuItem
Caption = 'Date'
OnClick = Date1Click
end
object email1: TMenuItem
Caption = 'E.mail'
OnClick = email1Click
end
object Subject1: TMenuItem
Caption = 'Subject'
OnClick = Subject1Click
end
object FirstName1: TMenuItem
Caption = 'First Name'
Visible = False
end
object LastName1: TMenuItem
Caption = 'Last Name'
Visible = False
end
object Company1: TMenuItem
Caption = 'Company'
Visible = False
end
object URL1: TMenuItem
Caption = 'URL'
Visible = False
end
object Note1: TMenuItem
Caption = 'Note'
Visible = False
end
object Grouplist1: TMenuItem
Caption = 'Group list'
OnClick = Grouplist1Click
end
object N21: TMenuItem
Caption = '-'
end
object Unsorted1: TMenuItem
Caption = 'Unsorted'
OnClick = Unsorted1Click
end
end
end
object Mailbox1: TMenuItem
Caption = 'Mail&box'
object IN1: TMenuItem
Tag = 1
Caption = 'In'
OnClick = Message2Click
end
object Out1: TMenuItem
Tag = 2
Caption = 'Out'
OnClick = Message2Click
end
object Tr1: TMenuItem
Tag = 3
Caption = 'Trash'
OnClick = Message2Click
end
object N7: TMenuItem
Tag = -1
Caption = '-'
end
object New1: TMenuItem
Tag = -1
Caption = '&New'
OnClick = New1Click
end
end
object Transfer1: TMenuItem
Caption = '&Transfer'
object In2: TMenuItem
Tag = 1
Caption = 'In'
OnClick = Transfer1Click
end
object Out2: TMenuItem
Tag = 2
Caption = 'Out'
OnClick = Transfer1Click
end
object Trash1: TMenuItem
Tag = 3
Caption = 'Trash'
OnClick = Transfer1Click
end
object N14: TMenuItem
Caption = '-'
end
end
object Address1: TMenuItem
Caption = 'Addresses'
object AddressBook1: TMenuItem
Caption = 'Address Book'
OnClick = AddressBook1Click
end
object Stoplistdatabase1: TMenuItem
Caption = 'Stop List Database'
OnClick = Stoplistdatabase1Click
end
object N4: TMenuItem
Caption = '-'
end
object ImportAddress1: TMenuItem
Caption = 'Import Address'
OnClick = ImportAddress1Click
end
end
object Tools1: TMenuItem
Caption = 'Tools'
object Filter1: TMenuItem
Caption = 'Filters'
OnClick = Filter1Click
end
object Filters1: TMenuItem
Caption = 'Apply Filters'
OnClick = Filters1Click
end
object Mailboxes1: TMenuItem
Caption = 'Mailboxes'
OnClick = Mailboxes1Click
end
object N5: TMenuItem
Caption = '-'
end
object Emailextractor1: TMenuItem
Caption = 'E.mail, URL, News Search'
Visible = False
end
object EmailWEBscanner1: TMenuItem
Caption = 'E.mail WEB Scanner'
Visible = False
end
object FTPCommnder1: TMenuItem
Caption = 'FTP - Commander'
Visible = False
end
object N12: TMenuItem
Caption = '-'
Visible = False
end
object Preferences1: TMenuItem
Caption = 'Preferences'
OnClick = Preferences1Click
end
end
object Window1: TMenuItem
Caption = '&Window'
object Tile1: TMenuItem
Caption = '&Tile'
OnClick = Tile1Click
end
object Cascade1: TMenuItem
Caption = '&Cascade'
OnClick = Cascade1Click
end
object CloseAll1: TMenuItem
Caption = 'Close &All'
OnClick = CloseAll1Click
end
object ArrangeIcons1: TMenuItem
Caption = 'Arrange Icons'
OnClick = ArrangeIcons1Click
end
object N9: TMenuItem
Caption = '-'
end
object Next1: TMenuItem
Caption = '&Next'
ShortCut = 117
OnClick = Next1Click
end
object Previous1: TMenuItem
Caption = '&Previous'
ShortCut = 8309
OnClick = Previous1Click
end
end
object Help1: TMenuItem
Caption = '&?'
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
object Help2: TMenuItem
Caption = 'NetMail! Help'
OnClick = Help2Click
end
object VistaOnline1: TMenuItem
Caption = 'www.vista.ru'
OnClick = VistaOnline1Click
end
end
end
object AttachmentManager: TAttachmentManager
Left = 74
Top = 74
end
object Mailbox: TNMailBox
CurrentMailBoxNumber = 0
CurrentMailBoxMessages = 0
CurrentNMailBoxSize = 0
CurrentNMailBoxTrash = 0
Msg_Lines = 0
Msg_Size = 0
Msg_Number = 0
Msg_Part = 0
Msg_Flag = #0
Msg_AttachStart = 0
Msg_AttachEnd = 0
Left = 18
Top = 72
end
object SystemTimer: TTimer
Interval = 60000
OnTimer = SystemTimerTimer
Left = 184
Top = 150
end
object OpenDialog1: TOpenDialog
Left = 218
Top = 54
end
object SaveDialog1: TSaveDialog
Left = 298
Top = 46
end
object TableNameMenu: TTable
DatabaseName = 'VistaMail'
TableName = 'NameMenu'
TableType = ttParadox
Left = 408
Top = 34
object TableNameMenuPosM: TIntegerField
FieldName = 'PosM'
end
object TableNameMenuMCaption: TStringField
FieldName = 'MCaption'
Size = 40
end
object TableNameMenuMDIPosM: TIntegerField
FieldName = 'MDIPosM'
end
end
object QdbMess: TQuery
DatabaseName = 'VistaMail'
SQL.Strings = (
'Update dbMess set'
'InOutTrash=:a0 where PosM=:a1')
Params.Data = {010002000261300003040000000000000002613100030400000000000000}
Left = 412
Top = 124
end
object QSendQueued: TQuery
DatabaseName = 'VistaMail'
Left = 410
Top = 174
end
object QueryNameMenu: TQuery
DatabaseName = 'vistamail'
SQL.Strings = (
'select N.PosM , N.MCaption, M.MCaption,'
' M.MDIPosM from'
'NAMEMENU N,NAMEMENU M'
'where N.PosM = M.MDIPosM')
Left = 476
Top = 44
object QueryNameMenuPosM: TIntegerField
FieldName = 'PosM'
end
end
object PrintDialog: TPrintDialog
Left = 252
Top = 52
end
object Tpoisk: TTable
DatabaseName = 'VistaMail'
TableName = 'Dbmess'
TableType = ttParadox
Left = 368
Top = 50
object TpoiskInOutTrash: TIntegerField
FieldName = 'InOutTrash'
end
object TpoiskPosM: TAutoIncField
FieldName = 'PosM'
end
object TpoiskEnabledToSend: TBooleanField
FieldName = 'EnabledToSend'
end
object TpoiskSubject: TStringField
FieldName = 'Subject'
Size = 100
end
object TpoiskWhen: TDateTimeField
FieldName = 'When'
end
object TpoiskSost: TBooleanField
FieldName = 'Sost'
end
object TpoiskSend: TBooleanField
FieldName = 'Send'
end
object TpoiskPriority: TIntegerField
FieldName = 'Priority'
end
object TpoiskAttachment: TBooleanField
FieldName = 'Attachment'
end
object TpoiskSize: TIntegerField
FieldName = 'Size'
end
object TpoiskMsgDate: TStringField
FieldName = 'MsgDate'
Size = 25
end
object TpoiskRBSinglemaillist: TBooleanField
FieldName = 'RBSinglemaillist'
end
object TpoiskAttachStart: TIntegerField
FieldName = 'AttachStart'
end
object TpoiskAttachEnd: TIntegerField
FieldName = 'AttachEnd'
end
object TpoiskPosBegin: TIntegerField
FieldName = 'PosBegin'
end
object TpoiskSizeMessage: TIntegerField
FieldName = 'SizeMessage'
end
object TpoiskWhenSend: TDateTimeField
FieldName = 'WhenSend'
end
object TpoiskWho: TStringField
FieldName = 'Who'
Size = 50
end
end
object GoToWeb1: TGoToWeb
Url = 'http://www.vista.ru/netmail.htm'
EMail = 'vista@aha.ru'
BrowserState = gwMaximized
Left = 274
Top = 132
end
end